Dim fso, fld, fldName, drvName, TestFile, fileName
drvName = inputbox("Podaj nazw napdu, gdzie ma by zapisany plik:", "Litera dysku")
fldName = inputbox("Podaj nazw folderu, gdzie ma by zapisany plik:", "Nazwa folderu")
fileName = inputbox("Podaj nazw pliku:", "FileName")
Set fso = CreateObject("Scripting.FileSystemObject")

If (fso.FolderExists(drvName & fldName)) Then
   msgbox("Folder istnieje.")
Else
   Set fld = fso.CreateFolder(drvName & fldName)
End If


If (fso.FileExists(drvName & fldName & "\" & fileName & ".txt")) Then
   msgbox("File already exists.")
Else
   Set TestFile = fso.CreateTextFile(drvName & fldName & "\" & fileName & ".txt", True)
   TestFile.WriteLine("Tutaj bdzie zawarto pliku")
   TestFile.Close
End If
